           \  R                 L        _  
                              Schiebetre 3teil.                L A1?A?1         L       t       t      t                                 
            `
         A!A]g@        ?          D      X    Invalid parameters!           ! sliding 5' 0" 
if f-0.022<=-0.0001 then 50
if c-3*f<=-0.0001 then 50
if H<0 or H>100 then 50  
if M<1 or L<1 then 50
if E>0.9999 then 10
if (a-(2*D+3*e+2"*(M-1)))/M<0.0001 then 50
if (b-(2*D+2*e+1"*(L-1)))/L<0.0001 then 50

10:
addz -C*E~
mulx -1 
addx -a/2
call frame_ a,b,C,D
MATERIAL G
addx D
addz C/2-3*F/2
if e<1 then 20
E=0.075
block a/3-2*D/3+E*2/3,b-D,F 
addz F
addx (a/3-2*D/3-E/3)*0.01*(100-H)
block a/3-2*D/3+E*2/3,b-D,F
addz F
addx (a/3-2*D/3-E/3)*0.01*(100-H)
block a/3-2*D/3+E*2/3,b-D,F
del 3 
addz -f 
goto 30 
20:
call int_rect_frame a/3-2*D/3+E*2/3,b-D,e,F
addz F
addx (a/3-2*D/3-E/3)*0.01*(100-H)
call int_rect_frame a/3-2*D/3+E*2/3,b-D,e,F
addz F
addx (a/3-2*D/3-E/3)*0.01*(100-H)
call int_rect_frame a/3-2*D/3+E*2/3,b-D,e,F
del 4
addx e
addy e
addz F/6
call double_grille_2 a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
addz F
addx (a/3-D*2/3-E/3)*0.01*(100-H)
call double_grille_2  a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
addz F
addx (a/3-D*2/3-E/3)*0.01*(100-H)
call double_grille_2 a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
del 5
addz F/2
call double_grille_2 a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
addz F
addx (a/3-D*2/3-E/3)*0.01*(100-H)
call double_grille_2  a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
addz F
addx (a/3-D*2/3-E/3)*0.01*(100-H)
call double_grille_2 a/3-D*2/3-4/3*e,b-D-2*e,F/3,M,L
del 7
if i=0 then 30
material i
addx e
addy e
addz F/2
rect a/3-D*2/3-4/3*e,b-D-2*e
addx (a/3-D*2/3-E/3)*0.01*(100-H)
addz F
rect a/3-D*2/3-4/3*e,b-D-2*e
addx (a/3-D*2/3-E/3)*0.01*(100-H)
addz F
rect a/3-D*2/3-4/3*e,b-D-2*e
del 7
30:


if j<>1 or h>0 then 60


addz -0.001
w=(a/3-D*2/3-4/3*e)/3
y=(b-d)/2

addx w+e
addy (b-d)/2
lin_ 0,0,0,w,0,0
lin_ w,0,0,w*2/3,w/3,0
lin_ w,0,0,w*2/3,-w/3,0
addz F
addx w*3+e
lin_ 0,0,0,w,0,0
lin_ w,0,0,w*2/3,w/3,0
lin_ w,0,0,w*2/3,-w/3,0
addz F
addx w*3+e
lin_ 0,0,0,w,0,0
lin_ 0,0,0,w/3,w/3,0
lin_ 0,0,0,w/3,-w/3,0
goto 60
50:
print "Invalid parameters!"
60: 
endif C-2*F<=-0.0001 then 1
if H<0 or H>100 then 1

ADD2 0,C*E~
MUL2 -1,1
RECT2 -A/2,-C,-A/2+D,0
RECT2  A/2,-C,A/2-D,0
N=E
if e>0.9999 then 2
ADD2 -A/2+D+N,-C/2+F/2
LINE2  0,0,0,F
LINE2  0,F/2,a/3-D*2/3-4/3*N,F/2
LINE2  a/3-D*2/3-4/3*N,F,a/3-D*2/3-4/3*N,0
ADD2  (a/3-D*2/3-E/3)*0.01*(100-H),-F
LINE2  0,0,0,F
LINE2  0,F/2,a/3-D*2/3-4/3*N,F/2
LINE2  a/3-D*2/3-4/3*N,F,a/3-D*2/3-4/3*N,0
ADD2  (a/3-D*2/3-E/3)*0.01*(100-H),-F
LINE2  0,0,0,F
LINE2  0,F/2,a/3-D*2/3-4/3*N,F/2
LINE2  a/3-D*2/3-4/3*N,F,a/3-D*2/3-4/3*N,0
ADD2  (a/3-D*2/3-E/3)*0.01*(100-H),-F
DEL 4
GOTO 3
2:
N=0.08
3:
ADD2 -A/2+D,-C/2+F/2
RECT2 0,0,A/3-2*D/3+N*2/3,F
ADD2  (A/3-2*D/3-N/3)*0.01*(100-H),-F
RECT2 0,0,a/3-2*D/3+N*2/3,F
ADD2  (A/3-2*D/3-N/3)*0.01*(100-H),-F
RECT2 0,0,a/3-2*D/3+N*2/3,F
DEL 3

IF K=0 THEN 5
DEL 1
LINE2 -A/2+D,0,A/2-D,0
LINE2 -A/2+D,-C,A/2-D,-C


GOTO 5
1:
FRAGMENT2 1,1
5:
END   L  ff?ff      x       L      L      x      x      x           ?ff?׽       ?׽?           ?    ?ff           ?ff    ?ff       ff׽       ׽               ff           ff    ff       ?nz2-?nz,4       ?nz/>Q/       >Q,4>Q2-       >녽>녽2-       >녽u녽u       녽2-녽       QAQ뽜       Q뽾vɿnzv       nznzA       ?׽2->녽2-       >녽2->논,4       >논,4?׼,4       ?׼,4?׽2-       >Q뽜Q뽜       Q뽜Q2-       Q2->Q2-       >Q2->Q뽜       녽A׽A       ׽A׽       ׽녽       녽녽A          {
} 
      >                                              A  X Dimension                         @    B  Z Dimension                         @    C  Rahmenstrke ss   @
         ?R    D  Rahmenbreite ess  @
         ?
=`   E  Trbreite  1-solid   olid         ?33@   F  Trstrke  immer > 1"  > 1" 22     ?`@   G	  Material Tr terial 0No
         @.      H   Offen %  geschl.-0->voll-100               I	  Material Glas  Allgemein-keine     @8      J   ffnungslinie  1ja 0keine e              K   Schwelle in 2D  0keine no                L   Teile # vert l Panes -solid  ea     ?      M   Teile # hor ntal Panes -solid       ?                